Cluster: 7

Table

celltype <- "7"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "human")

Ridge

plot_ridge(scrna, id = celltype, genes = markers[1:6,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")

Cluster: 6

Table

celltype <- "6"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "human")

Ridge

plot_ridge(scrna, id = celltype, genes = markers[1:6,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")

Cluster: 2

Table

celltype <- "2"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "human")

Ridge

plot_ridge(scrna, id = celltype, genes = markers[1:6,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")

Cluster: 1

Table

celltype <- "1"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "human")

Ridge

plot_ridge(scrna, id = celltype, genes = markers[1:6,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")

Cluster: 0

Table

celltype <- "0"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "human")

Ridge

plot_ridge(scrna, id = celltype, genes = markers[1:6,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")

Cluster: 5

Table

celltype <- "5"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "human")

Ridge

plot_ridge(scrna, id = celltype, genes = markers[1:6,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")

Cluster: 8

Table

celltype <- "8"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "human")

Ridge

plot_ridge(scrna, id = celltype, genes = markers[1:6,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")

Cluster: 3

Table

celltype <- "3"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "human")

Ridge

plot_ridge(scrna, id = celltype, genes = markers[1:6,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")

Cluster: 4

Table

celltype <- "4"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "human")

Ridge

plot_ridge(scrna, id = celltype, genes = markers[1:6,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")

Cluster: 9

Table

celltype <- "9"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "human")

Ridge

plot_ridge(scrna, id = celltype, genes = markers[1:6,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")